home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 63
/
063.d81
/
timer boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
31 lines
100 poke53280,.:poke53281,.:print"[147]"
110 gosub310: rem message
120 print" [208]lease choose:"
130 print" [158][201][159]nstall [212][201][205][197][210]"
140 print" [158][210][159]eturn to [204][207][193][196][211][212][193][210]"
150 geta$:ifa$=""then150
160 ifa$="r"ora$="[210]"thenprint"[147]":goto250
170 ifa$<>"i"anda$<>"[201]"thengoto150
180 print" [201][206][211][212][193][204][204][201][206][199] [212][201][205][197][210]..."
190 sys57812"main",8,0:poke780,.:poke781,.:poke782,160:sys65493
200 sys57812"control",8,0:poke780,.:poke781,.:poke782,207:sys65493
210 print"[147]programmers helper loaded."
220 print"sys 52992 to start."
230 end
240 :
250 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
260 if er<>63 then print"[147]":end
270 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
280 print"[158]load"q$a$q$",8"
290 print"run":poke631,13:poke632,13:poke198,2:end
300 :
310 poke214,16:print:print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
320 fori=1to3:print" ":next
330 print" [208]ublished on [204][207][193][196][211][212][193][210] #63 "
340 print" Subscriptions 1-800-831-2694 "
350 print" "
360 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
370 au$="[212] [201] [205] [197] [210]":poke214,18:print:printspc(20-len(au$)/2)"[152]"au$
380 au$="[194]y [193]ndrew [204]ittle ([195]) 1989":poke214,19:print
390 printspc(20-len(au$)/2)"[152]"au$"":return